40 FOR I=49152 TO 49188: READ A: POKE I,A: NEXT:POKE 53280,11
50 PRINT CHR$(147):FOR I=1024 TO I+1000: POKE I,160: POKE I+54272,11:NEXTI
60 FOR I=0 TO 15: FOR J=0 TO 15
70 P=1196+(40*I)+J: POKE P,J+1: POKE P+54272,J: NEXT J,I
80 PRINT TAB(15)CHR$(5)"COLOR CHART":FOR I=1 TO 19:PRINT:NEXT
85 PRINT"THIS CHART SHOWS ALL COMBINATIONS OF   "
86 PRINT "FOREGROUND AND BACKGROUND COLORS.      "
87 PRINT "FOREGROUND INCREASES FROM LEFT TO RIGHT"
88 PRINT "BACKGROUND INCREASES FROM TOP TO BOTTOM";
90 SYS 12*4096
100 DATA 169,90,133,251,169,0,141,33,208,162,15,120
105 DATA 173,17,208,48,251,173,18,208
110 DATA 197,251,208,249,238,33,208,24,105,8,133,251,202,16,233,48,219